home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch06.Media / ShapesPatterns / Shapes / shapes.dir / 00028.ls < prev    next >
Encoding:
Text File  |  1996-11-26  |  203 b   |  8 lines
  1. on mouseDown
  2.   if the shapeType of member "shapeCast" = #roundRect then
  3.     set the shapeType of member "shapeCast" to #oval
  4.   else
  5.     set the shapeType of member "shapeCast" to #roundRect
  6.   end if
  7. end
  8.